(mail-do-fcc): Clear read-only flag in ` mail-temp' buffer.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 25a5501c888422981e7cf8f9ded1cad7114e0f23..c969c119ff424b6b8e39928d9e5710b81ab37c86 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -701,6 +701,7 @@ the user from the mailer."
                ;; convert the message to Babyl format.
                (save-excursion
                  (set-buffer (get-buffer-create " mail-temp"))
+                 (setq buffer-read-only nil)
                  (erase-buffer)
                  (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
                          "From: " (user-login-name) "\n"